/ BBS in a Box 11 / AMUG BBS in a Box Volume XI (April 1994) (MacWizards).iso / Files / System7 tools / Frontier / Scratchpad.cdemo1.sit / scratchpad.cdemo1 / scratchpad.cdemo1.rsrc / data_10110_scratchpad.cdemo1

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 73 63 70 74 00 01 04 38 | 00 02 00 00 00 6c 00 00 |scpt...8|.....l..|
|00000010| 03 27 00 00 02 00 00 0f | 06 47 65 6e 65 76 61 00 |.'......|.Geneva.|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 09 00 00 00 00 |........|........|
|00000040| 00 00 00 00 00 00 06 54 | 00 00 a5 b7 ea 45 a5 eb |.......T|.....E..|
|00000050| 40 54 00 00 00 05 00 00 | 00 32 00 37 01 6d 01 c5 |@T......|.2.7.m..|
|00000060| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000080| 74 68 69 73 20 73 63 72 | 69 70 74 20 74 72 61 76 |this scr|ipt trav|
|00000090| 65 6c 73 20 74 68 72 75 | 20 61 6c 6c 20 74 68 65 |els thru| all the|
|000000a0| 20 6d 6f 75 6e 74 65 64 | 20 66 6f 6c 64 65 72 73 | mounted| folders|
|000000b0| 20 61 6e 64 20 73 75 62 | 2d 66 6f 6c 64 65 72 73 | and sub|-folders|
|000000c0| 0d 09 6c 6f 6f 6b 69 6e | 67 20 66 6f 72 20 6f 6c |..lookin|g for ol|
|000000d0| 64 20 54 48 49 4e 4b 20 | 43 20 70 72 6f 6a 65 63 |d THINK |C projec|
|000000e0| 74 73 2e 20 69 74 20 6f | 70 65 6e 73 20 65 61 63 |ts. it o|pens eac|
|000000f0| 68 20 6f 6c 64 20 70 72 | 6f 6a 65 63 74 2c 20 73 |h old pr|oject, s|
|00000100| 65 6e 64 73 20 54 48 49 | 4e 4b 20 43 0d 09 61 20 |ends THI|NK C..a |
|00000110| 6d 65 73 73 61 67 65 20 | 74 6f 20 72 65 6d 6f 76 |message |to remov|
|00000120| 65 20 6f 62 6a 65 63 74 | 73 2c 20 74 68 65 6e 20 |e object|s, then |
|00000130| 63 6c 6f 73 65 73 20 61 | 6e 64 20 63 6f 6d 70 61 |closes a|nd compa|
|00000140| 63 74 73 20 74 68 65 20 | 66 69 6c 65 20 61 6e 64 |cts the |file and|
|00000150| 20 71 75 69 74 73 0d 09 | 54 48 49 4e 4b 20 43 2e | quits..|THINK C.|
|00000160| 20 69 66 20 49 20 63 6f | 75 6c 64 20 72 75 6e 20 | if I co|uld run |
|00000170| 74 68 69 73 20 73 63 72 | 69 70 74 20 6e 6f 77 20 |this scr|ipt now |
|00000180| 28 54 48 49 4e 4b 20 43 | 20 64 6f 65 73 6e 27 74 |(THINK C| doesn't|
|00000190| 20 68 61 76 65 20 77 69 | 72 65 73 29 20 49 20 63 | have wi|res) I c|
|000001a0| 6f 75 6c 64 0d 09 70 72 | 6f 62 61 62 6c 79 20 72 |ould..pr|obably r|
|000001b0| 65 63 6c 61 69 6d 20 61 | 62 6f 75 74 20 32 30 20 |eclaim a|bout 20 |
|000001c0| 6d 65 67 61 62 79 74 65 | 73 20 6f 66 20 64 69 73 |megabyte|s of dis|
|000001d0| 6b 20 73 70 61 63 65 20 | 69 6e 20 6c 65 73 73 20 |k space |in less |
|000001e0| 74 68 61 6e 20 61 20 68 | 61 6c 66 20 68 6f 75 72 |than a h|alf hour|
|000001f0| 2e 0d 6f 6e 20 74 72 61 | 76 65 72 73 65 20 28 66 |..on tra|verse (f|
|00000200| 6f 6c 64 65 72 29 0d 09 | 66 69 6c 65 6c 6f 6f 70 |older)..|fileloop|
|00000210| 20 28 66 20 69 6e 20 66 | 6f 6c 64 65 72 29 0d 09 | (f in f|older)..|
|00000220| 09 69 66 20 66 69 6c 65 | 2e 69 73 46 6f 6c 64 65 |.if file|.isFolde|
|00000230| 72 20 28 66 29 0d 09 09 | 09 74 72 61 76 65 72 73 |r (f)...|.travers|
|00000240| 65 20 28 66 29 0d 09 09 | 65 6c 73 65 0d 09 09 09 |e (f)...|else....|
|00000250| 69 66 20 28 66 69 6c 65 | 2e 74 79 70 65 20 28 66 |if (file|.type (f|
|00000260| 29 20 3d 3d 20 27 50 52 | 4f 4a 27 29 20 61 6e 64 |) == 'PR|OJ') and|
|00000270| 20 28 66 69 6c 65 2e 63 | 72 65 61 74 6f 72 20 28 | (file.c|reator (|
|00000280| 66 29 20 3d 3d 20 27 4b | 41 48 4c 27 29 0d 09 09 |f) == 'K|AHL')...|
|00000290| 09 09 69 66 20 66 69 6c | 65 2e 6d 6f 64 69 66 69 |..if fil|e.modifi|
|000002a0| 65 64 20 28 66 29 20 3c | 20 74 61 72 67 65 74 44 |ed (f) <| targetD|
|000002b0| 61 74 65 0d 09 09 09 09 | 09 46 69 6e 64 65 72 2e |ate.....|.Finder.|
|000002c0| 6f 70 65 6e 20 28 66 29 | 20 c7 6c 61 75 6e 63 68 |open (f)| .launch|
|000002d0| 20 54 48 49 4e 4b 20 43 | 2c 20 6f 70 65 6e 20 70 | THINK C|, open p|
|000002e0| 72 6f 6a 65 63 74 0d 09 | 09 09 09 09 63 2e 72 65 |roject..|....c.re|
|000002f0| 6d 6f 76 65 4f 62 6a 65 | 63 74 73 20 28 29 0d 09 |moveObje|cts ()..|
|00000300| 09 09 09 09 63 2e 63 6c | 6f 73 65 41 6e 64 43 6f |....c.cl|oseAndCo|
|00000310| 6d 70 61 63 74 20 28 29 | 0d 09 09 09 09 09 72 65 |mpact ()|......re|
|00000320| 71 75 69 72 65 64 2e 71 | 75 69 74 41 70 70 6c 69 |quired.q|uitAppli|
|00000330| 63 61 74 69 6f 6e 20 28 | 27 4b 41 48 4c 27 29 0d |cation (|'KAHL').|
|00000340| 74 61 72 67 65 74 44 61 | 74 65 20 3d 20 63 6c 6f |targetDa|te = clo|
|00000350| 63 6b 2e 6e 6f 77 20 28 | 29 20 2d 20 28 33 36 30 |ck.now (|) - (360|
|00000360| 30 20 2a 20 32 34 20 2a | 20 33 36 35 29 0d 74 72 |0 * 24 *| 365).tr|
|00000370| 61 76 65 72 73 65 20 28 | 22 22 29 20 c7 76 69 73 |averse (|"") .vis|
|00000380| 69 74 20 61 6c 6c 20 66 | 69 6c 65 73 2f 66 6f 6c |it all f|iles/fol|
|00000390| 64 65 72 73 20 6f 6e 20 | 61 6c 6c 20 68 61 72 64 |ders on |all hard|
|000003a0| 20 64 69 73 6b 73 0d 84 | 00 00 00 00 00 80 00 00 | disks..|........|
|000003b0| 00 00 00 80 00 00 00 00 | 00 80 00 00 00 00 00 80 |........|........|
|000003c0| 00 00 00 00 00 80 00 00 | 00 00 00 80 00 00 00 00 |........|........|
|000003d0| 00 80 00 00 00 00 00 80 | 00 00 00 00 00 80 00 00 |........|........|
|000003e0| 00 00 00 80 00 00 00 00 | 00 80 00 00 00 00 00 80 |........|........|
|000003f0| 00 00 00 00 00 80 00 00 | 00 00 00 80 00 00 00 00 |........|........|
|00000400| 00 80 00 00 00 00 00 80 | 00 00 00 00 00 80 00 00 |........|........|
|00000410| 00 00 00                |                         |...     |        |
+--------+-------------------------+-------------------------+--------+--------+